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 POTPOURI :- Dot Matrix Addendum - VZ User Groups and Publications. Раде 3 


EDITORS COMMENTS - - - - = = - 2 


STOP PRESS :-  ** NEW #* МЕМ ** NEW #% 
Larry TAYLOR has just updated his VZ EPSON PRINTER PATCH V1.4 with host of 


extra features. Review in next issue. It's a must for anyone with an EPSON 
or EPSON compatible printer. Available from VSOFTWAREZ. | 


- 


EDUCATIONAL PROGRAM by Paul LEON :- Баев 4 
With last school term just around the corner students will find this 
program helpfull in learning their Elements and Symbols. 


CHARACTER CODES (С) by Robert QUINN :- Pages 3-7 
Once again Robert cames to the fore to demistify the VZ, this time it's 
the characters and their codes. 


MAILING LIST UPDATE :- Page 7 

Dick SMITH'S Technical Bulletin 111 on tape MAILLIST to disk SAVE/LOAD 
conversion gave just the bare essentials. The mods on page 7 give MAILLIST 
users a bit more versatilty. Major mods in next issue. 


AEMASUS SPEECH SYNTH. PROGRAMS by Dave BOYCE :- Pages 10 
` Held over for a couple of issues they finally make an appearance. 
INKEY? INPUT ROUTINE by Paul LEON :- | Page 10 
Unlike the INPUT command an INKEYS INPUT routine can be tailored to your 
requirements. In the M/WORDS program in this issue nearly all inputs are 


handled by this routine. 


USING DISK TOKENS by Robert QUINN :- Pages 11-13 

Carrying оп from previous article Robert has supplied us with a M/L shift 
routine to use with disk tokens as a demonstration program. It's a very fast 
BLOCK MOVE routine. For another example of it's use see M/WORDS program. 


sek BIB RAM by Joe LEON :- Fage 15 
Most comments regarding the 2k and ВК BIB RAMS from previous issues also 
apply to this unit. It's too expensive for me. 


Sk BIB RAM PART II Бу Joe LEON :- Pages 14-16 

Last issue had the circuits and now the program for activating any missing 
word you like апа more. Because of it's built in LITHIUM batteries which 
should last around ten years you can think of it as a MAGIC EPROM. 


— XI TÜKENS-AND WORDS by Robert QUINN s- ----  -Pages 17-18. E unda d 


I'm afraid the GREMLINS (See BELIEVE IT OR МОТ) got in jas issue with 
some ERRORS on page 11 and all the TOKENS were wrong in the right column on 
page 13. The complete word and token tables are reproduced which also 
includes all disk words as well. Intending constructors of the Sk BIB RAM 
will find the information most useful. 


FOR SALE ~ FOR SALE :- Our usual ads appear once more pages 19-20 


BELIEVE IT OR NOT :- 


(Gremlins) - Normally I would apologise, but as my son Paul claims пе 
tought me all about computers I'll let him take the blame. 


CONGRATULATIONS SHIRLEY AMD Тарга Е 


SUFI E {MA “FTI FR Pi ASP I ا‎ __ ram 
12 I FLL ——— — . Jd ANET кі i ZABETH BOYCE 


ij 


PS :- IF YOUR NAME IS DAVE THEN WATCH QUT AZ YOU COULD BE’ NEXT - 


YOU CAN'T SAY YOU HAVE'NT BEEN WARNED - 
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DISK DRIVE PRIMER a „ - =- . . . с 


Apparently there are a few VZ users with DISK DRIVES who 
find some of the terms used confusing, mainly about file types. 


T:MAILLIST - The ’T’ before the Filename denotes a TEXT or BASIC 
program. You would either RUN"MAILLIST" or LOAD"MAILLIST" 


D:MAILDATA - The 'D' denotes a DATA file and can only be created 
by а program like MAILLIST. All the Names, Addresses, etc, 
you typed in are contained in а ’D’ type DATA file and The 
commands used to SAVE or LOAD your DATA file are :- OPEN, 
CLOSE, РЕҢ and INS. Тһе 4 commands can only be used from within 
a program,  exept for CLOSE uhich can be used in direct mode. 


ғаізғс FRE Гея ТЕ Sale = = E 5 2 = Ж 
1 off EXTENDED BASIC - 'XB' as from LASERLINK - 925,00 
1 off LIGHT PEN again from LASERLINK - $32.90 


Both items are as new and used twice only and still in original 
packing. Ring Dave on (98) 384 6574 about both items. 


DOT MATRIX PRINTERS ADLRPEMDuri 


My thanks to John D’Alton for sending down the fonts below 
Which arrived too late for Larry Taylors Dot Matrix article in 
last issue. They were printed on a CITIZEN 120-D printer which 
John markets. 


! 
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VWF АБЕ Ч GROUPS AND PUBL ICAT IONS 


JZ USER МАЕК HARWOOD F. 0. BOX 154 DURAL N.33. W. 2158 
LE’ YZ OOP © J.C. E. D’ ALTON 39 AGNES St. TOOWONG QLND. 4966 
-YZ DOWN UNDER- SCOTT LE BRUN 5 CAMERON COURT  WANTIRNA 3152 


VZ-LINK NEWSLETTER P.O.BOX 1972 C.P.O. AUCKLAND NEW ZEALAND 
VZ USERS GROUP P.O.BOX 22-094 CHRISTCHURCH NEW ZEALAND 


HUNTER VALLEY VZ USERS' GROUP - P.0. BOX 161 JESMOND N.S.W. 2299 
EDITOR-JOE LEON (049)51 2756 - SECRETARY-ROSS WOODS 049)71 2843 


SUBSCRIPTION - H.V.VZ.JOURNAL - 6 MONTHS $9.90 - 12 MONTHS $18.90 
Neu Zealand - 6 MONTHS $12.90 - 12 MONTHS 824.90 


MEETINGS - 2nd. FRIDAY of MONTH at NEW LAMBTON COMMUNITY CENTRE 
CNR. ALMA RD. and CROMWELL ST. NEW LAMBTON - Upstairs Hall. 


NOTE :- When writing to any above ог Н.У. 972. Users’ Group for 
information please enclose а 5.5.А.Е. or 2 Int. Reply Coupons. 


No MATERIAL in this Journal may be reproduced in part or 
Whole without the consent of the Author who retains COPYRIGHT. 


Y; 


220 PRINT8482, 


EDUCATIONAL PROGRAM BY P. LEON 44. 


The program below із designed to help learn ELEMENTS and 
their SYMBOLS. You can chose ELEMENTS, SYMBOLS or RANDOM of the 
two previous. Whichever you chose, you'll have to type in 
either the ELEMENT’s name or it's SYMBOL. Even if you know the 
element's name the spelling has to be 100% correct. Have fun. 


Only 29 elements have been included and you can add ог 
replace with different elements. Do not forget to reDIMension if 
you add or subtract number of elements. 


10  жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж 
20 ° Ж TRAINING PROGRAM FOR LEARNING ELEMENTS AND SYMBOLS Ж 


30 °ж TOGETHER WITH PERCENT RIGHT SCORE --- BY PAUL LEON * 
40 7” KKK KKK KKK KKK KKK KK KK KKK KK KK KKK KKK KKK KKK KKK KR KKK KKK KK KK KOK KOK KK 
59: 


69 POKESO744,96:DIN E$(20),S$(20) :GOSUB190:GOSUB70@: FORI-1TO29 
70 N-RND(20): IFES (N) <>" "ТНЕНТО | 
ЗФ READES(N) , SS(N) : NEXTI:GOTO2900 


190 CLS:PRINT TAB(S) "Шш Ер ОШ 
110 PRINT" хассасасас атам салалы атала ы” 
120 PRINT" NUNBER да QUESTIONS ANSWERED" 








130 PRINT" ШЕННЕ meg >" 

140 PRINT" PRSCRNTAGE CORRECT =-->" 

150 PRINT" =============================='" : RETURN 

160 : | | 

200 PRINTG226,"QUESTION # WAS":PRINTGA418, "QUESTION £z" 


210 FORI- 0: ... еа чел: GOSUBEO®@ 





230 DELI ш a TRU 
240 A-RND(2)-1:IF А THENS310 | 
250 РЕІМТӘ290, "Binz "%ЕФ(І) 
260 PRINT@354, ; : INPUT "Bewail: ЖИВ "ЈАЗ 

270 IFAS-"Q"THENGOSUBSO00: GOSUB600: сотоз7т9 

280 I[FAS=S$( 1) THENGOSUBSOOELSEI FAS< >S$( I ) THENGOSUB5 19 
300 NEXT: un ории. GOTOS379 

310 PRINT@S5S4, "Wei TN! 2 "355%(1) 
320 PRINTS290, ; : INPUT "руси: ІШЕ |"; АЗ 

339 I[FAS="Q"THENGOSUBSO®@: с0508600: сотозте 

340 IFAS=ES$( 1) THENGOSUBSO@ELSEI FAS< >ЕЗ (І) THENGOSUB5 10 
360 NEXT:GOSUB600 














-.. 870 .PRINT8440,.* Y ....":PRINT8418,; INPUT "нанс 





380 IF T$-"Y'THENRUNELSEIFT$-"'Q"THENCLS: END: "ELSES70 —— 


500 PRINT@247, писания": SOUNDS 1, 1: R=R+1:GOTOS29 
519 PRINT@247, "Erici" : SOUND1S5, 4: W=W+1 

520 PRINT@108, USING "##" ;R:PRINT@124, USING "##"3W 
530 PRINT8152, USING "#44. ##" ;R/IX1900 

540 PRINT@237,USING" ##"; Г: RETURN 





600 FOR J=288TOS88STEP32 


610 PRINTGJ," А ";: REM 32 SPACES 
620 NEXT: RETURN | 


700 PRINTGZ290,":jzüziübs] — БЫШЫШЫ — гари!" : PRINT@S79, "Е" 
710 PRINT@SSS5S,;:INPUT"SELECT {3 OR Ы OR id "3 ELS 

720 [FELS<>"E“ANDELS<>"S"ANDELS<> "R"THENTOOELSERETURN | 
800 DATA HYDROGEN,H, HELIUM, HE, LITHIUM, LI, BERYLLIUM, BE 

319 DATA BORON, В, САВВОМ, С, МІТЕОСЕМ, М, ОХУСЕМ,О, FLOURINE, Е 

820 DATA НЕОН, NE,SODIUM, NA, MAGNESIUM, ИС, ALUMINIUM, AL, SILICON,SI 
830 DATA PHOSPHOROUS,P,SULFUR,S,CHLORINE, CL, ARGON, AR 

840 DATA POTASSIUM,K,CALCIUM,CA 


CHARACTER CODES «С» BY R. QUINN 5 


CODE :- 


The program CODE gives you access to all the VZ character 
содез--АЗСТТ, INVERSE,  PEEK/POKE--from the keyboard. Each time 
you press a key (by itself ог uith SHIFT key held doun) the 
corresponding character will display оп screen along with its 
various codes in decimal and hex. | | 


For nongraphic characters, the first two lines display the 
normal and inverse CHR$ codes. These are the codes used in PRINT 
Statements. Normal CHR$ codes are ASCII codes uith the range 32 
to 95, аз зет out in the BASIC REFERENCE MANUAL. These divide 
into two sets : those from 32 to 63, Which I will, for 
convenience, call numeric Characters (digits, operation 
Characters and punctuation characters) and those from 64 to 95, 
the so-called alphabetical characters. 


For numeric characters, the inverse CHR$ code is the normal 
CHR$ code + 192. 


For alphabetical characters, the inverse CHRS code is the 
normal СНЕФ code + 128. 


Hold SHIFT and press X key to change the background of the 
Screen from light to dark and vice versa. Visually, what is 
normal and what is inverse will depend on the background, but 
the CHR$ codes do not change. 


The remaining two lines display the normal and inverse 
PEEK/POKE codes. These are the codes that determine what 
character will appear at a given position on the screen (in video 
memory) when you POKE a number to that position, or the number 
you get if you PEEK at a given position on the screen (in video 
memory). 


PEEK/POKE codes are somewhat more complicated than CHR$ 
codes. Again, What is normal and what is inverse depends 
visually (what you see) on the background, but also the 
PEEK/POKE codes change according to the background. 


With a dark background, the PEEK/POKE codes for normal 
alphanumeric characters range from 0 to 63, With the 


Characters having codes from 32 to 63. Then the PEEK/POKE code 
for an inverse character is the normal PEEK/POKE code + 64 (range 
64 to 127). | 


With a light background it is the inverse alphanumeric 
Characters that have PEEK/POKE codes in the range 9 to 63 and the 
normal characters whose PEEK/POKE codes are the inverse PEEK/POKE 
codes + 64 (range 64 to 127). You can see this when you switch 
background (SHIFT X) while CODE is running. 


Now try some of the graphic character keys (SHIFT J, SHIFT 7, 
etc.). CODE displays each graphic character in all eight colors, 


With the PEEK/POKE character code for each color. The PEEK/POKE 


code for each successive color (down the screen) is the previous 
color code + 16. 


Green is the start color, and it is the green PEEK/POKE 
code for each graphic character that is the CHR$ code for that 
character.. | 


alphabetical” characters having -codes -from-Q-to 31 and пушегтс------ 


CHARACTER CODES CONT. қ : x - . € 


The range of CHR$ codes for the sixteen graphic characters is 


128 то 143. This is the standard ог default range. There are 
three other ranges of CHR$ codes available for graphic 
characters: 144 to 159; 169 to 175; and 176 to 191. These 


simply repeat the standard range of graphic characters. 


When using CHR$ codes for graphic characters, you select the 
color you want for a graphic character by using the COLOR 
command. With PEEK/POKE you select the color of a graphic 
character by choosing the PEEK/POKE graphic character code 
appropriate to the color. The PEEK/POKE code for a green graphic 
Character is also the standard CHR$ code for that character. 
This із the code that, CODE displays at top of screen. 


CONTROL CODES :- these are CHRS codes for cursor control 
commands that are accessed with the CTRL key held down: cursor 
up, down, left, right, INSERT, RUBOUT. RETURN key also has 
a CHR$ code. 


Other CHR$ codes can be viewed with CODE by HOLDING SHIFT and 
pressing C key. 


The BACK ARROW character (ASCII code 95; inverse code 223) is 
not accessible via the keyboard. You have to use CHR$ or РОКЕ to 
make use of this character. With CODE running, SHIFT V keys 
will display the back arrow character codes. 


10 ? KKKKKKKKKAKAKKKKKAKKAKKAKKKKKAKKAKKAKKKKAKKKKAKKAKKKKKKKKKKKK 
12 °x ASCII AND PEEK/POKE CODES FOR NORMAL - INVERSE Ж 
14 °ж GRAPHIC AND CONTROL CHARACTERS BY ROBERT QUINN Ж 
16 ” ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖХ 
20 : 

30 CLS: N$-"0123456 789ABCDEF® : X--1: VM-28672: POKESO7 44, 1 
40 PRINTQ7, "ивана" 

50 PRINT:PRINT"PRESS A KEY BY ITSELF" 

60 PRINT:PRINT"OR WITH SHIFT HELD DOWN" | 

70 PRINT:PRINT"OR WITH CTRL FOR CURSOR CONTROL KEYS" 

80 PRINT:PRINT"SHIFT X SWITCHES BACKGROUND" 

90 PRINT:PRINT"SHIFT C FOR MISCELLANEOUS CODES" 

95 PRINT:PRINT"SHIFT V FOR BACK ARROW" 

100 AS=INKEYS: AS=INKEYS 





.-1410.IFPEEK(26875)-249,SOUND20,1:XzNOTX:POKE30744,ABS(X):GOTO190 пп 


120 IFPEEK (26875) =243THENSOUND290, 1:CLS:GOSUB410:As="" 
125 IFPEEK (26875) =2 19THENSOUND2®@, 1: А -СНЕ (95) : GOTO140 
130 IFA$=""THEN100 
140 B-0:CLS:A-ASC(AS$):B$-A$:1FA«310RA- 127THENGOSUB3 10 
150 IFA>31ANDA<64THENB=A+192 
160 IFA>S1ANDA<G4THENB=A+192:N=A:V=A+64 
170 IFA»63ANDA«9GTHENB-A*128:N-A-64:V-À 
180 IFA>127ANDA< 144THENB- 1 
190 IFB»1THEN22O0ELSEIFB-OTHEN 100 
200 T=0:FORR=1T08:M=A+16X{R-1):COLORR:PRINT@T,BS" ";М; :6050В500 
210 T=T+64:NEXT:GOT0100- 
220 PRINT@64, BS; : PRINT@6S, USING "###"3A; : M-A: GOSUBS00 
230 IFA>31ANDA<S6THENPRINT" (BRE Tsien | 
240 PRINTG128,CHR$(B) i: PRINT8132, USING "it " : B5; : H-B: GOSUBS00 
250 PRINT" Юй" 
260 POKEZSG6+VM, N:PRINT@260, USING"iHHt" ; №; : H-N: GOSUBS00 
270 PRINT" Ызаа" 
280 POKE320-UM,V:PRINTG324, USING "###" ; ¥; : H-U: GOSUBS00 
290 PRINT" Ызаа" 
300 GOTO100 











CHARACTER CODES CONT. - - - = - Fa 


319 MH=a:IFA=l27THENPRINTE64, "RUBOUT "ЗА: 
320 IFA-2ZITHENPRINT864,"INSERT "СА; 

330 IFA=STHENPRINT@64, "CURSOR LEFT  ";A; 
340 IFA=STHENPRINT@64, "CURSOR RIGHT ";А; 


350 IFA=10THENPRINT@64, "CURSOR DOWN ";А; 
360 [FA=27THENPRINT@64, "CURSOR UP "SAS 
379 IFA=13THENPRINT@64, "RETURN "ЗА; 


380 (0518599: RETURN 

410 PRINTG864,"CURSOR HOME "528; "= HEX 1C " PRINT 
420 PRINT"CLEAR SCREEN ";31;"- HEX iF" 

A30 RETURN 

500 C*X-HM/16:M-M-16xCX:GOSUB520: C%=M: 0518529 

519 PRINT" = HEX ";D$;:D$-"":RETUEN 

529 D$=D$+MIDS(NS,C%+1, 1) : RETURN 


mA IL ING LIST UFDATE . а - - m m - 


This update is for those persons who converted their tape 
MAILING LIST for disk use according to В. Smith’s Technical 
Bulletin 111 which is available free from D.Smith. 


DISPLAY DISK DIRECTORY :- Just press °@’ for DIRECTORY. 


READ MENU :- 

1) Selecting READ uill load your DATA file from disk. 

2) CLOSE OPEN DATA FILE. If you get FILE ALREADY OPEN ERROR, 
then type in GOTO1000, select 2. READ option and select 2 again 
to CLOSE OPEN FILE. | 


WRITE MENU :- 

1) WRITE NEW DATA FILE - Use this option only if your disk 
has'nt a data file on it already called MAILDATA. 

2) UPDATE OLD DATA FILE - This option will first ERASE MAILDATA 


file and then WRITE a new MAILDATA file. 


WARNING  :- In case of ERRORS - DO NOT type in RUN or you will 
lose all your data, instead type in GOTO1000 to regain control. 


600 COLOR7: PRINT@S4, "N ааа d" 

605 PRINTG82232,"1. READ DATA FROM DISK" 

610 РЕІМТӘЗ56, "2. CLOSE OPEN DATA FILE" 

639 PRINTG8450, Шы ЕЕ ae eee ОШ ВЛЕЕ С Н"; 2 KSC INKEYS 

. 840 DIS=INKEYS: ТЕ 185 "2 "ТНЕНВ 135. — | 

6590 IFD1$=" '"THEN1000ELSEIFD1$-"!"THENGOSUB30: RETURNELSE630 
690 : 

700 COLOR7: PRINT@S4, "ИІН cid ШЕШ" 

719 PRINTGZS2,"1. WRITE NEW DATA FILE" 

729 PRINTG356,"2. UPDATE OLD DATA FILE" | 

730 PRINT@450, "шыш нен АГАТ eie m e RUNE fH" 5 :KS-INKEYS 

749 D2$= INKEY$: ТЕр2%=" 1 "ОКр2%= "2 "ТНЕМСОБЅОВЗО : RETURN . 

759 ІЕр2%=" "THEN1900ELSET7T3O 

800 CLS: DIR: STATUS: PRINT: GOSUB4 120: GOSUB40000: GOSUB30 : RETURN 
1020 COLORT:PRINTG34, "ШШШ Е": :PRINTG45S, ; "+ OF RECORDS: "; 
1025 PRINTUSING" ###";DT 

1927 PRINTGSS8,"O. DISPLAY DISK DIRECTORY"; 

1230 IFI$«"O"ORIS$»"OS"THEN1220ELSESOUND390, 1 

1340 IFI$-"O"THENGOSUBS909:GOTO19290 

5000 REM "BN ГЕШ TER E MN | 
5010 GOSUBS3O:COLOR7:GOSUPB700 | 
5020 PRINT@261,"C€ WRITE DATA TO DISK 1":GOSUB4100:GOSUB30 
o205 IFDZS$-"I"THENS52IOELSE:ERA"MAILDATA" 

5000 КЕМ" Bee sar ee НЕШ AER EN ІШІ ед ЕЩ 

6010 GOSUBS30:COLOR7:GOSUBGO0 

6020 РЕІМТӘ260, "Г READ DATA FROM DISK 1"::GOSUB4100:GOSUB30 








SPEECH SYNTH PROGRAMS D. BOYCE в 


AEM’S CTS/SPO Speech Board - Program notes for the VZ 200/300 


You will notice that the OUTPUT Routine for TALK А program is 
MUCH SHORTER and COMPACT uhen compared to my Original Programs. 


In the routine 'TALK 3' the actual OUTPUT Routine takes a feu 
lines, this is for Clarity Purposes. | 


In "TALK А" you will see that the Output Routine has been 
reduced to just tuo lines. 


Explanation of Output Routine taken from 'TALK 3” 
10200 FOR T-1 TO LEN(A$) °’ Starts Output Loop of АФ 


1090220 А-А5С(НІр%(А%,Т,1)) ° А is made equal to the ASCII 
value of each letter in the String in turn 


10240 OUT 12,А °’ the ASCII value is output to the Printer. 
10260 NEXT ' goes back for the next character in the String 


10270 LPRINT:LPRINT:LPRINT ? forces the Speech to 
Output ALL of the String 


OUTPUT Routine from 'TALK А? 


1500 is the combination of lines 10200 to 10260 as above. 
1529 is the same as 190270 above. | 
I have found that only 2 LPRINT commands are needed. 


Dave BOYCE 


50 GOTO 100 
60 ERA"TALK 3" 

70 SAVE"TALK 3":DIR:STATUS 

80 END | 

100 CLEAR 300 :' FILE - TALK 3 

180 CLS:PRINT"TALKER VERSION 1.3" 

200 PRINT ЕНН 

10110 * SIGN ON | 

10120 A$-"BY--YOR--COMMAND":GOTO 10180 

10130 'INPUT SECTION 

10140 PRINT" SEPERATE WORDS WITH A DASH" 

10150 PRINT" E.G.-» HELLO-THERE-FRIEND": PRINT 

10160 INPUT" TALK PT.1)";A$:1NPUT" TALK PT.2)":B$:4$-A$-"—"-B$ 
10170 IF A$-"-" THEN A$-"PLEEZ-ENTER-SUM-THING-2-SAY" 
10180 ° | | | 
10190 ° OUTPUT LOOP ROUTINE 

10200 FOR T=1 TO LEN(A$) | 

10220 A-ASC(MIDS$(AS,T, 1).) 

10240 OUT 12,A 

10260 NEXT 

10270 LPRINT:LPRINT:PRINT 

10280 GOTO 10140 

10290 ” GO BACK TO SENDER 

10300 END 


SPEECH SYNTH PROGRAMS CONT. 2 5 


19 CLS ' FILE - TALK A 
15 ° DO NOT EDIT LINE 210 
20 РОКЕЗ1946, 161 


25 PRINT" CTS/SPO SOUND EFFECTS DEMO.":PRINT :'FOR AEM 4505 
30 CLEAR 300 

35 PRINT" 1) GARGLING" 

40 PRINT" 2) RUBBER LIPS" 

45 PRINT" З) TRAIN" . 

50 PRINT" 4) SNEEZES" 

55 PRINT" 5) MACHINE GUN" 

60 PRINT" 6) WHISPERING" 

65 PRINT" 7) STARTER MOTOR" 

79 PRINT" 8) SIREN (SORT OF)" 

75 PRINT" 9) DOG" 

89 PRINT" 19) OWN SOUND/MESSAGE" 

85 PRINT" 11) UP-DATE DISK" 

ЭФ PRINT 

200 PRINTG416,;:INPUT" ENTER YOUR CHOICE "ЗА 

219 & A GOTO 500,550, 600, 650, 700, 750, 800, 850,900,950, 1650 
220 PRINT@437, " ":GOTO 2900 

500 AS="GARGLING. ARRGLARRGLARRGLARRGLARRGLARRGLARRGL" 
510 GOSUB 1500 

520 GOTO 290 

550 AS-"RUBBER-LIPS.BLBLBLBLBLBLBLBLBLBL" 

560 GOSUB 1500 

570 GOTO 2090 

600 AS-"STEAM-TRAIN.SHSHSHSHSHSS, TOOT-TOOT, SHSHSH" 

620 GOSUB 1509 

640 GOTO 2090 

650 AS$S-"SNEEZING.ASJ,ASJ,ASJ,ASJ-GZUNTITE" 

660 GOSUB 1599 

670 GOTO 200 

700 AS="MACHINE-GUN. сесесессасасессессссссесссссссссс" 
710 GOSUB 1509 

720 GOTO 200 

750 A$-"WHISPERING.SHSH.SH..SH-SH-SH-SHSHSH-SH-SHSHSH" 
769 GOSUB 1509 

770 GOTO 200 

800 AS-"STARTER-MOTOR.IH-IH-IHIHIHIHIHIHIHIHIHIHIHIHIHIH" 
810 GOSUB 1500 

820 GOTO 200 

850 AS="SIREN. ca ы ыы ылды ЫЕ" 
860 GOSUB 1500 

870 GOTO 200 

900 AS="DOGGY. НЕЕНЕЕ-НЕЕ- WFFWFE- RFF" 

910 GOSUB 1500 

920 AS-"..THATS-PUHTHETIC" 

930 GOSUB 1500 

940 GOTO 2090 

950 INPUT" YOUR TRY ";А$ | 

960 IF A$-"",A$-"YOU-DID-NOT-ENTER-ANY-THING.TRI--AGAN" 
970 en 1500 

980 

990 RUN 


1500 FOR Т-1 TO LEN(AS$):C-ASC(MID$(AS$,T, 10): OUTIZ, С : МЕХТ 
1529 LPRINT: EE. 
1560 PRINTG437," 
1600 END 


:A$="": RETURN í 


SPEECH SYNTH PROGRAMS CONT. Ж 1 


1659 * NO# 11 UPDATE DISK 

1669 A$-"DO-YOU-WAN-Z2-UP-DATE-THE-DISK":GOSUB 1500 
1670 DS=INKEYS$: DS=INKEYS 

1680 IF INKEY$="N",220 

1690 IF ІМКЕҮФ= "ү", 1750 

1700 IF ІМКЕҮФ<>"Ү" OR ІМКЕҮФ<> "М", 1670 
1740 END 

1759 ЕКА "ТАТК A":SAVE"TALK А": СОТО 220 
2000 FOR L-31870 TO 32000 

2020 PRINTL;PEEK(L);CHR$(PEEK(L)) 

2025 IF INKEY$-" ",2025 

2030 NEXT 

2040 LIST 20 


INKEY+s INPUT ROUTINE BY PAUL LEON 


As most AN rus leg а know the INPUT command on the VZ has it's limitations, 
but an NKEYS$ INPUT routine can be tailored to your requirements. The 


routine Ен will not accept leading spaces, INVERSE or GRAPHIC characters. 
POKES@776,4@ disables latter two inputs. Both ALPHA and NUMERICS are catered 
for, NC-VAL(INS) in line 90 converts STRING to a NUMERIC value and ulike the 
INPUT command COMMA’S, etc are ignored. Imagine no more REDO's. 

LE is the variable which sets the lenght of the INPUT. Only lines 200 to 
510 are required, the rest are for demonstration purposes. Trailing spaces 
can be removed by line 300 or left in. This routine was used for most INPUTS 
in M/WORDS program on page 16. 


10 'ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
12 °x ІМКЕҮФ INPUT ROUTINE DESIGNED BY PAUL LEON FOR HIS DAD x 
14 Ке ی وی‎ ЖКЖ ЖАД КЕК КЕ АХЖ КЖ EEE 








18: 

20 CLS:POKE30744,96:COLOR, 0: POKE30862, 80: POKE30863, 52. 

25 5Р3-" ":REM 30 SPACES 

30 PRINTG3S, aL A” : PRINT 

35 PRINT" ganag | ad dU PN ОНИЕ": PRINT: PRINT 

40 PRINT" USE iN =o (3) KEY TO ERASE": PRINT 

45 PRINT" PREVIOUS ENTERED 2201552: 541055 | | 
50 PRINTG385, "уина SEN REEL ЕР ee :SOUND3@, 1: LE- 1 
55 GOSUB200:Y$- INS: IFY$-"Y" THENSSSUSEIRYSSUNS THENGOELSES@ 
60 CLS: END 

65 PRINT@417, SPS: GOSUB 105 

70 PRINTG385, "SEIS MESI Ie E ا‎ E "$:S0UND30, 1: LE-1 





"б GOSUBZ2O090: YNS=INS 
80 ІРҮМФ= "ү "THENGSELSE I FYN@="N"THENSSELSEGOSUB 1 10: GOTO7O 

85 GOSUB119:PRINTG385, "Hi NES LEN AMEN ке ии ";: 1, Е-? 
90 GOSUB2990: чес VAL( ING) : IFNC< 1ORNC> 16ТНЕҢӘ5ЕЬЗЕРЕ1НТ@З85, OPS 
95 PRINT 0385, "Жып ОИЫН "5 :SOUNDSO, 1: LEZNC:GOSUB200 

100 PRINTG417,SP$: PRINT@429, СНЕЗ (34) INSCHR$(34) : GOTOS®@ 

195 PRINT@S85, SP$: SOUNDSO, 1: RETURN 

119 PRINT@412, " ":SOUND3@, 1: RETURN 








190 БЕМ Tees Tier OR GL 
200 CUS=CHRS(222)+CHRS(8) : BS$=CHRS(8)+CHRS( 127) +CUS: IN$-"" 
210 L-LEN(INS$):PRINT IN$;CUS; 

220 A$S-INKEY$:AS-INKEY$:IFAS$-""THEN22OELSEX-USR(X) 

230 POKESO776, 40: IFAS=CHR$(13)THENPRINT" ":GOTO290 

240 IFAS="; "ANDL>OTHENPRINTBSS$; : L=L-1: INS=LEFTS( INS, L) 

250 IFL-LE THENSOUND20, 1ELSEIFA$=" "ANDL-OTHEN220 
260 IFAS<" "ORA$»"^"ORAS-";"THEN220 

270 IFL<LE THENPRINTAS;CUS; : INS=INS+A$:L=L+1 

280 GOTO220 

290 IFYN$="N"THENRETURN | 
300 IFRIGHTS(INS$,1)-" "THENINS=LEFTS(IN$, LEN( IN$)-1):GOTO30@ 
319 RETURN | 





USING DISK TOKENS (с: R. QUINN 11 


USING A DISK TOKEN IN A BASIC PROGRAM :- 


First we choose a disk token--133 will do. Then we insert 
this token in a brief BASIC program to test its operation. Enter 
the following program:- 


10 LET:PRINT"TEST" 
20 PRINT"AGAIN" 
30 END 


To replace the token for LET uith our disk token, 
POKE31469, 133 


If you nou RUN you uill get ERROR messages because your VZ's 
MICROPROCESSOR (the MP) picked up on token 133 at start of line 
19, located the pointer for this token which directed it to 
address 31091 where it found and executed a JP301 instruction. 


What we want to do is change the instruction at 31991 so that 
the MP will execute it, then return to line 10 and continue to 
run our BASIC program. The simplest change I know of is a RET 
instruction (Code 201). So, РОКЕЗ1091,201 and RUN. 


It works! The MP jumped to 319091 where the RETurn uas 
encountered and executed and program RUN continued on to complete 
line 19 and then line 20. This tells us something important: 
when a token 15 encountered in а BASIC ргоггаш, if a CALL 
instruction is executed, so that no matter where the MP may jump 
to run the M/L routine tied to that token, it can find its way 
back to 115 position in the current BASIC line if the M/L routine 
ends with a RET. 


So let's try something а little more complicated. We'll set 
up а Short M/L routine in a stretch of otherwise unused memory, 
in the COMMUNICATIONS REGION, that begins at address 31273 


(10=41; HI=122). First change the instruction at 31991 to JP 
31273: 


POKES 1991, 195: POKES1092,41:POKE 31093, 122 
Nou add these lines to our BASIC program: 


50 A-31273 ae dda ek «toe 
60 INPUTB:POKEA, В: A=A+1:GOTO6O 


RUNS® and INPUT this sequence of numbers: 33,1,1,34,0,112,201 


BREAK -- We have nou set up a M/L routine at 31273 consisting of 
these three instructions:- 


LD HL,257 
LD( 28672) ,HL 
RET 


The routine loads the H and L registers with 717 which is the 
POKE code for A, then POKEs these codes to the first two cells of 
screen memory (28672/3, top left corner) and RETurns. 

So, now CLS, press <RETURN> and RUN. 


?SYNTAX ERROR IN 10 


USING DISK TOKENS CONT. S 2 ж 122 


But our M/L routine executed, did it not? There аге two A’s 
in top of screen. Only the MP returned to line 10 and BREAKed. 
Why? Because we changed the contents of the HL registers. When 
we use USR(x) to execute a M/L routine, USR saves the current 
contents of the HL registers on the STACK and uhen RET is 
encountered то bring the MP back to BASIC, the contents of the 
hl registers are restored. No matter how the registers may 
Change in the course of executing the M/L routine, the MP 
continues execution of the BASIC program with the registers the 
Same as when it began USR. 


We must do the same uith our M/L routine. The routine only 
uses the HL register. pair so we need only save and restore these 
two registers. We do this by PUSHing HL on the STACK at the 
Start of our routine and then POPing them from the STACK at the 
end of the routine. | | 


229 PUSH HL 
225 POP HL 


Again RUNS® and INPUT this sequence of numbers: 229, 33, 1, 
1, 34, д, 112, 225, 201 | 


BREAK. CLS, press «RETURN» and RUN. 


This time our program ran through to END in line 30, 
executing our M/L routine, then returning to execute the two 
PRINT statements in lines 19 and 20. 


Having successfully worked out a technique for making use of 
disk tokens, it only remains to design some interesting and 
useful M/L routines to execute uith our neu technique. That uill 
be largely up to you. But here is an example:- 


Video memory consists of 2048 bytes (from 28672 to 30719), of 
Which only one quarter (512 bytes) is used for the screen display 
in text mode (28672 to 29183). We can use another block of 512 
bytes of video memory as a video store, say from 29184 to 29695, 

and set up M/L routines to copy the text mode screen to our 
Video store and recall the content of the video store back to 
Screen. This can be done very easily entirely in BASIC, using 
PEEK and POKE in FOR NEXT loops. The advantage of M/L routines 
-iS-that they are very fast, practically instantaneous. Mom m 


Again RUNSO and INPUT the following sequence of numbers :- 
229,33,0,112,17,0,114,1,0,2,237,176,225,201 
229,33,9,114,17,0,112,1,0,2,237, 176,225,291 


And BREAK. Two routines have been set up in the 
COMMUNICATIONS REGION, a COPY (screen to video store) routine 
Starting at 31273 and a RECALL (from video store to screen) 
routine starting at 31287. 

We will use the disk token 165 to execute the COPY routine 
(PUT) and disk token 164 to execute the RECALL routine (GET). We 
must change the JP instructions in the COMMUNICATIONS REGION for 
these disk tokens to make them jumps to the start of our M/L 
routines: 


РОКЕЗ1197,41:РОКЕЗ1198, 122 POKES 1104, 55:РОКЕЗ1105, 122 


We are now ready to use our new tokens and their M/L routines 
in BASIC programs. So let's try them out. First NEW your, VZ. 
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Enter this BASIC line :- 

500 LET: RETURN 

Now РОКЕЗ1469, 165 and enter this line :- 
400 LET:RETURN 

And РОКЕЗ1469, 164 


We have set up two BASIC subroutines, a PUT routine at line 
599 and а GET routine at line 400 which сап nou be called by 
using GOSUBs to those lines from within our BASIC program or even 
called with GOSUBs in command mode. 


Try it. Enter 0508500 
NOW CLS and GOSUBAO0,. 


How about that eh? You can fill the screen with any data you 


please, then store it in the video store with а 0508509, and 
recall it to screen anytime you want with a GOSUBA490. 


мек BIB RAM BY JDE LEON . = - - = 


+5у | 051230 
7415136 | 051225 
051220 






051235Ү 
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32K x в BIB RAM 





This 32h BIB RAM is the last in the line of BIB RAMS and is included for 
completeness. At around $140.00 it is very expensive and 404 more than the У2 
itself. I can't see too many persons rushing out to get one. А lék BIB RAM 
would be more useful than above, but it's not available to my knowledge. And 
now to the circuit. Ав you can see there's not much to it. Тһе 4 DIODES and 
SKS resistor form a 4 INPUT DIODE AND gate. A single 32K or two 16K decoded 
O/P’s could have been used but were decided against for the following reasons. 

Tf you have а М.Р. cartidge then it wont work with circuit unless you 
disable top 16K. The 2 switches allow us to do so. Also if you use 32K BIB 
ram as an EPROM program developer then it's very desirable being able to 
switch out one or more 8K blocks. The switch on the WR (WRITE) line is there 
as a WRITE PROTECT switch when needed. The diagram on the right shows the 
pinouts of 2K, ВК and 32K BIB RAMS. If you have trouble locating a supplier 
for BIB RAMS then contact :- | 


NOVOCASTRIAN ELECTRONIC SUPPLIES PTY. LTD. (049) &2-1358 or (049) 62-2005 
24 BROADMESDOW ROAD, BROADMEADOW, NSW, 2292, AUSTRALIA 
MK48Z02 2K BIB RAM 34,40 - Available X stock. 
051220 ZK BIB RAM - # - 7777 
051225 ЗК BIB RAM $45.00 - $54 - (150 or 200йп5) ' 
0561219 32K ВІВ RAM - $140.00 - (150п5) 

All DS (Dallas Semiconductor) BIB RAMS are available on indent oniy. 
Prices are aproximate, ckeck with supplier for correct price. 


Д 


Please mention Н.У. 72.0.5. when making enquiries or purchasing any above. Ed. 


зк кери RAM FART ІС BY JOE LEON io 


The ВЕ BIB RAM is one of the more exiting projects that I built. Му 
thanks to Dave Mitchell, Robert Quinn and Larry Taylor for their neip with 
routines and information which I found most useful, thanks fellas. 


Using the program I activated all the following extended basic commands :- 
RANDOM, DEFINT, DEFSNG, DEFDBL, RESUME, ON, SYSTEM, DELETE, AUTO, VARPTR, ERL, 
ERR, STRINGS, MEM, FRE, POS, CINT, CSNG, CDBL and FIX. | 


The following disk words were also enabled with some of their names being 
changed. FUT, GET, CMD to 005, ОРЕМ to TRON, CLOSE to TROFF. 


Now just by switching ROM Й out and switching ӘК BIB RAM in it's place all 
the Ext. Basic commands are at my disposal. Although routines for TRON and 
. TROFF are in the КОМ their place in the word table has been taken Бу other 
words. Renaming words wont activate routines, pointers have to be cnanged 
which is what I did. 


As there are по routines in ROM for the disk commands CMD, РОТ and СЕТ 

other routines were used. R.Guinn's block move routine was placed in 25 BIB 
RAM ас  Бйййн. Ав in his article PUT shifts the text screen up 512 bytes 
(1/2K) whle GET brings it back to the text screen. FUT and bel gives me 
instant menu in my programs. 
DOS з- i bet this command has you wondering. Quite often when i need to 
гепутрег part of a program i CLOAD W.Üübrist's renumbering utility. When done 
1 used to have to save program to tape as the renumbering utility ciobbered 
the 005. Now when I want to return to disk use i type in DOS and it 
reinitialises both the VZ and DOS. Тһе basic program no longer responds ta 
LIST or RUN, but by using Dave Mitchell’s Ext. Dos 010 command the program is 
restored. 


Т - TEXT POKE :- This function is designed to poke TEXT to RAM. EG :- READY -~ 
How many times nave you pressed RETURN over READY and got an ERROR message. 
By using TEXT РОКЕ you can change it to REM as it produces no error message. 
The word READY lives at 6441-6446, Don’t forget to put 2 spaces at end от REM 


"г 


as it is anly 5 characters long. 


P - РОКЕ WORDS s- This is the option for enabling missing words. й. Шип 3 
NORD routine is used to identify missing words which are then typed іп апа as 
soon as RETURN is pressed they are PORED in. Refer to the two tables in pages 
17-18. The left culumn shows all words while right column shows the gaps 
where the missing words go. Traiiing spaces and inverse characters are 
disabied in -this -function .so.. the correct number от characters have to Ве... 

entered. | 


А ~ WORDS PEEK :- This is like above, but for viewing only. 
M - MEM PEER - This allows you to PEEK at both Hi and Lo Memory. 


в - MOVE ROM X g~ This options will move ROM 0, ROM 1 and DOS ROMS to 
COQU-DFFF (49122-37342), This is where all the хз us are done and POKE 
WORDS routine only works in this area. MOVE КОМ 0 before POKE., 


бо Тағ іп MEM PEEK Hl and TEXT POKE HI routines, offsets tor КОМ @ oniy 
‘lines 200 and 510) were incorporated as the program was originally designed 
со enable missing words only and it sort of grew a Dit. AS the оғсағат is 
stiil under developement other options will be added 11ке Lo-8yte/Hi-8yre FORE 
for use in changing word pointers, etc. | 

This sk RAM with оці іп ШІҮНІПМ baterias Nas geen very usetuüli im 
enabling missing words. also as any one от the 2 ROMS can se aur in ЧЕ SiB 
RAM they can De altered, routines rewritten and just a тем seconds iater just 
зу flicking a coupie otf switches Instant Eprom. | 


Sh 
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ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
"Ж M/WORDS - MISSING WORD ENABLING ROUTINE BY JOE LEON ж 
'ж WITH ROUTINES BY ROBERT QUINN AND PAUL LEON Ж 
шағы а ааа ада пот ЫРЫ КЕК 


POKE30897, 204:POKE30898,191:REM - SET NEW TOP OF MEMORY 
CLS: GOTO 100 

РЕМ" ТРИНИТИ] 

CLS: POKESO777, 1: PRINTSS$; | 
0=127:ЕОЕЕ=5712Т0 А2 :Р=РЕЕК(В):ІЕР> 128ТНЕМр=р+1:РЕІМТ 
ІЕР> 128THENPRINTUSING "####"3;R3D3: PRINT": "5 | 
ТЕР> 1I2Z8THENPRINTUSING "###"3;P;ELSEPRINTUSING "ЕНЕР; 
IFP-i2ZSANDD$-"P'THENGOSUBA400 

IFP»OTHENPRINTCHRES$(P);" "; 
IFPC192ANDP»159THENPRINT"WORD IS ";CHRS$(P-128); 
AS-INKEYS$:AS-CINKEYS:IFAS$S«»""THENSOUNDZO, 1: CzNOTC 
IFC--1THENTOELSEIFAS$-"Q"THENSOELSENEXT 

еа 35: PRINT: PRINT: GOSUB1105:GOTO15@ 


REM E oU ur TS a a ве ШИН RN 











100 FOR ВМ-312737031286: READMB: POKEBM, HB: NEXT 

195 DATA 229,33,0,0,17,0,192,1,0,32,237, 176,225, 201 

119 : 

150 CLEAR300:COLORT7:M$-" 3 mu е НЫН ШШЕ od В gd d | 2 

155 въз "Еа": SPS" ":КЕМ 7 SPACES 
160 BL$-" ":ВЕМ 32 SPACES 
165 55%= " pal НЕСІ MR EE Uc вена :53%-" 7 

iq BOSSES --------------------------3--"ЗЕРН 30 2 SYMBOLS 
180 CLS: РОКЕЗФ 744 ,96: СОТОК, Ф: POKES@862, 80: POKE30863, 52: GOTO700 
199 : | | 

200 PRINT@473,SP$;:PRINT@447," ИАЕА ЕН О"; 
205 SOUND30,1:LE-5:GOSUB2000:AÀ1-VAL(INS$) 

210 [FDS="T" THENS5S@®O 

220 PRINT@473,5PS;:PRINT@447," МӘННЕН о"; 
225 SOUNDS®@, 1: LE=5:GOSUB2000:A2=VAL{ INS) 

230 I[FDS="W"ORDS—=—"P"THENSSELSEIFAI=@THEN150 

260 : 

270 PRINTG8448," ж үшын Шин валя не миди. оп. o: GOSUBS15 
275 LE=1:GOSUB2Z00@: XS=INS 

280 IPXS-"H'THENGOOELSEIFXS-"L'THENS190ELSEZT7TO 

300 А1<-А1-16384 : AZ-ÀZ- 16384 

319 CLS:POKEGOTT77,1:PRINTSS$; 

315.PRINT:FORL- А1 TO А2. :PRINTUSING". ЕНЕН"; . 

320 PRINTUSING" ### — ";PEEK(L); 

325 PRINTCHRS(PEEK(L)); 

330 IFXS="H"ORPS="H"THENPRINTUSING "#H#H#H "SL+16S84ELSEPRINT" " 
335 IFINKEYS=" "THENGAOELSEIFINKEYS$-"Q"THENS345 | 

340 IFINKEYS$S=""THENSSSELSENEAT 

345 PRINT: PRINT@480, R$; :POKESO777 ,35:SOUND3®, 1 

390 c рола 

3909 

400 PRINT: PRINT: PRINT тын ае сн нн нш" ЕЗІ :SOUNDS®, 1 
405 doc R-16384 

4290 

430 PRINTBLS; : PRINT "Bicis in t o dj Ce E Pr o ЕШ "3:POKE30777,35 


435 SOUND3O0,1:LE-7:GOSUBZOOO0:W$-INS:IFW$S-""THENRETUREN 


POKE AS,ASC(WS)+128: FOR Ісі TO LEN(W$)-1 

POKE АЗ+І, АБС(МІ”РФ(НФ, 1+1, 15) : МЕХТ: RETURN 
PRINT@448, " ИИА ао EEE "3 c xU Plo 
LE-I:GOSUBZOO0:PS$-INS 
IFPS$-"H'THENA4-A1—16384:GOTO5SSOELSEIPPS-"L'THENAA4-A1:GOTOSS9 


S 
515 [FPS="Q" THEN ISO@ELSESOO 


Sk 


гаф 
599 
569 
565 
579 
599 
600 
695 
619 
515 
629 
625 
635 
640 
690 
790 
705 


715 
720 
725 
730 
735 
790 
800 
805 
810 
815 
820 
825 
890 
900 
905 
319 
915 
990 
1000. 
1050 
1199 
1105 
1119 
1190 


21200. 


1205 
1300 
1400 
1405 
1980 
1990 
2000 
2005 
2010 
2015 
2020 
2025 
2030 
2035 
2040 
2045 
2050 
2055 


Bite RAM FART II 2 - = 2 РА = is 
PRINT@449,BLS;:PRINT@449, "Wendt "5 SOUNDSO, 1 
LE=16:GOSUB2000: T$=INS 
IFT$-""THEN7OO 
FORI-OTOLEN(T$)-1:POKEA4«I,ASC(MIDS$(TS$,I-1,1)):NEXT 
А1сА4:А2-А4-ІЕМ(Т%)-1:60Т03109 
PRINT@476, 53% | 
COLORS: PRINT@447," ШШШ See d ШИНЕ EARN  —"::SOUNDSO,l 


LE=1:GOSUB200@: RES=INS 

IFRES="0" THENLB=@ : HB=@: GOTO635 
TFRES="1"THENLB=0: HB=32:GOTO635 
IFRES="D"THENLB=@: HB=64: GOTO63SELSEIFRES= 
POKES 1275. LB:POKE31276,BHB 

РОКЕЗ9862, 41: POKES@863, 122: PRINTUSR(@) :GOTO18@ 


-"Q"THEN1IS@ELSE6@S 


CLS: POKE3@777, 1 


PRINT" Шш d emo pelos e ЫШЫ o a cca d S SR": PRINTEQS: PRINT 
PRINT" ШШ - TEXT POKE & - SAVE ROM 0": РЕТМТ 
PRINT" ig - FOKE WORDS |Ң — LOAD КОМ 9": РЕТМТ 
PRINT" ІШ — WORDS PEEK ig} - MOVE ROM X":PRINT 
PRINT" Шо ~ МЕМ PEEK ШШ — КЕРІ, PROG. ": PRINT 
PRINT" Е — DIRECTORY Ш — SAVE PROG." 

PRINT@416, EQ$; : POKESO777,35:GOSUB915 


ва 


СОТОКТ: PRINT@448, M$; : LE=1:GOSUB2Z00@: DS=INS 


IFD$-"L",GOSUBSO00:GOTO1200ELSEIFD$-"S",GOSUBS900:GOTO13900 
IFD$-"$",GOSUBS00:GOSUB1100:GOTO1890 
IFD$-"&",GOSUBS900:GOTO1000ELSEIFD$-"^",GOSUBS9090:GOTO1000 
IFDS$-"R"THENGOOELSEIFD$-"P'THENZ2ZOELSEIFD$-"W'"THEN229 
IFDS-"T'THENZOOELSEIFDS-"M'THENZOOELSES00 

COLORS: PRINT@447, ШО ш] рн eae ИГЕП pee "::cDOUB215 





C$=INKEY$:CS=INKEYS: раат гуртара -USR(X) 
IFC$-" "THENRETURNELSEIFCS-"Q"THENI1SOELSESOS 
SOUNDO, 1:25, 1530, 1: RETURN 


CLS: PRINTS480, "zu T: MÁ/WORDS":: 
CLS: PRINT@480, "БШШШ T: M/WORDS " 
CLS:DIRA:STATUSA 
PRINT@480, ЕФ; :GOSUBS15 


: ERA" M/ WORDS" 
(SAVE "M/WORDS" 


зопнозе, 
SOUND39O, 


+ 
> Ра 
à + 


к= 


IF INKEY$=CHRS$( 13) THENIS@ELSE1119 
CLS: PRINT@480, "MAME Т: ROM-OPG"3.:SOUNDZ@, 1. 

BLOAD" ROM-OPG" : GOTO180 

CLS: PRINT@480, Наси T: EOM-OPG";:SOUND3O, 1:ERA"ROM-9PC" 
CLS: PRINT@4890, "ШЕШШ Т: ROM—OPG "; :SOUNDZ®, 1 | 
BSAVE"ROM-OPG",COO00, DFFF:GOTO180 

REM "HENASE gt iL LOL ЕШІЛІПНЕ s n ШЫ so с а 

CU%=CHRS (222) +СНЕЗ (8) : BS$=CHRS(8)+CHRS( 127)+CUS: INS="" 
L-LEN(INS):PRINT INS;CUS; | 

AS= INKEYS: AS=INKEYS: ТЕАЗ-""ТНЕМ2О 19ELSEX=USR(X) 
POKE30776, 40: IFAS=CHR$(13)THENPRINT" ":GoTO2045 

ІРАФ="; "ANDL>OTHENPRINTBSS; : L=L-1: INS=LEFTS$( INS, L) 

[IFL-LE THENSOUND2®@, 1ELSEIFAS=" "ANDL-OTHEN2919 

IFA$«" "ORAS$»2"^"ORAS$-";"THEN2010 

IFL<LE THENPRINTAS;CUS;:INS$-INS-AS:L-L-1 

60Т02010 | 
[FDS="T"ORDS="P" THENRETURN 

[FRIGHTS(INS,1)=" "THENINS-LEFTS(INS,LEN(INS)-1):GOTO2050 


RETURN 


ы ut TOKENS AND WORDS BEY R. са INN А ғ 





TO - 


WORD ROUTINE ADDRESS WORD 

ADD. TOKEN WORD DEC LO HI HEX ADD. TOKEN WORD IN CHR# AND ASCII 

5712 128 END 7598 174 29 1рАЕ 9712 126: 197i 78N 680 

5715 129 FÜR 7529 141 28 ical 5715 129:198 790 82R 

5718 150 RESET 512 56 1 0158 5718 150:210Ш 69E 83S 69E BAT 

5723 131 SET 309 S3 1 0115 5723 151:21181 69E BAT 

5725 132 CLS 457 201 1 0169 5726 132:195 76L 838 

5729 155 CMD 21091 115 121 7975 5729 155:129, 00 

5732 134 RANDOM 467 211 1 0105 5732 1345129, 00000 

5738 135 NEXT 8885 182 34 2286 5738 135:206Щ1 49E 88X 84T 

5742 136 DATA 7941 5 31 1Е05 5742 136:196щ 65A ВАТ 65A 
5746 137 INPUT 8002 154 33 2194 5746 157:20181 78N SOP 850 84T 

5751 138 DIM 9736 | 8 38 2608 5751 158:196щ 731 77M 

9754 139 READ 8587 239 33 21EF 5754 1391210 69E 65A 680 
5758 140 LET 7969 55 31 Е 5758 140:20418 69E ват 

5761 141 GOTO 7874 194 50 1ЕС2 S761 141:199 790 84T 790 
5765 142 RUN 7845 163 50 1683 5765 142:210щ 85U 78N 

5768 143 IF 8249 57 32 2039 5768 143: 201l 70Е 

5770 144 RESTORE 7569 145 29 1D91 5770 144:210щ4 69E 83S ВАТ 790 8ZR 69E 
5777 148 GOSUB 7857 177 20 1ЕВ1 5777 145:1994 790 858 85U 668 
5782 146 RETURN 7902 222 30 1EDE 5782 1461210 69E Ват 850 82R 78N 
5788 147 REM 7943 7 51 1Е07 5788 147:210Щ 69E 77M 

5791 148 STOP 7595 169 29 1049 5791 148:2116] ВАТ 790 ВОР 
5795 149 ELSE 7945 7 31 1Е07 5795 149:197ІШ 76L 855 &9E 
5799 150 COPY 14510 18 57 3912 5799 150:1954 790 БОР В9У 
5805 151 COLOR 14493 157 56 2890 5805 151:195 790 761 790 82R 
5808 152 VERIFY 14126 56 55 3738 5808 152:214 69E 82R 731 70Е 89Ү 
5814 153 DEFINT 7683 3 30 1Е05 5814 15311297, 9000000 
5820 154 DEFSNG 7686 ё 30 1Е06 5820 124:129, 00000 

5826 155 DEFDBL 7589 9 30 1Е09 3826 155:129 00000 

5852 156 CRUN 14126 46 55 3725 5852 156:195Ш 82R 85U 78N 
5836 157 MODE 11875 99 46 2Е67 5856 157:205 790 68D &9E 
5840 158 SOUND 11255 245 43 2BF5 5840 158: 2118] 790 85U 78N 680 
5845 159 RESUME 8111 175 31 1FAF 5845 159:129, 00000 

5851 160 QUT 11005 251 42 САЕВ 5851 140: 207 850 ВАТ 

5854 141 ON 8044 108 51 1Féc 5854 161:129, 0 

5856 162 OPEN 21097 121 121 7979 5856 162:127, 000 

5880 163 FIELD 21100 124 121 797C 5860 163:129, 0000 

9865 164 GET 21105 127 121 797Е S865 164:129, 00 

S868 165 PUT 51106 150 121 7982 5868 165:129, 00 

5871 166 CLOSE 31109 133 121 7985 5871 166:1294 пова 

5875 167 LOAD 51112 136 121 7988 5876 167:129, 000 

5880 168 MERGE 31115 129 121 798B 5880 168:129, поро 

5885 169 МАМЕ 51118 142 121 798Е 5885 169:129, 000 

5889 170 KILL 51121 145 121 7991 5889 170:129 000 

5895 171 LSET 21127 151 121 7997 5895 171:129, 004 

5897 172 RSET 51120 154 121 799A 2897 172:129, 000 

5901 173 SAVE 51155 160 121 7900 5901 173:129. 000. 

5905 174 БУБТЕМ п о а ооа 5905 174:129, 00000 

5911 175 LPRINT 8295 103 52 2067 5911 175:20418 SOP B2R 731 78N 84T 
5917 176 DEF 51067 91 121 795B 5917 176:129, 00. 

5920 177 POKE 11441 177 44 2081 5920 177:208 790 75K &9E 
5924 178 PRINT 8303 111 32 206F 5924 178:2081 82R 731 78М ват 
929 179 CONT 7652 228 29 1DE4 5929 179:195(W 790 78N 84T 
5955 180 LIST 11054 46 45 2В2Е 5933 180:204щ 751 855 84T 
5937 181 LLIST 11049 41 45 2829 5957 181:204Щ 76L 731 855 84T 
5942 182 DELETE 11206 198 45 2BCé 5942 182:129, 00000 

5948 185 AUTO 8200 8 52 2008 5948 185:129, Q0 00 — 

5952 184 CLEAR 7802 122 30 ЧЕТА 5952 184:195ІН 74 &9E &54 87R 
3957 185 CLOAD 13910 85 54 1050 3957 185:195|H 761 790 &54 680 
5962 186 CSAVE 13481 169 52 2449 5982 186:1958 855 654 В6у 69Е 
5967 187 МЕН 4985 75 27 1849 5907 187:206Щ1 69Е 87W 
5970 188 TAB( NO ADDRESS LIST 5970 188:212Ш 65A 668 40: 
5974 189 NO ADDRESS LIST 5974 189:212 790 


“ес TOKENS kem WORDS (сл. Е - 


ROUTINE ADDRESS 





680 


WORD WORD | 
ADD. TOKEN WORD DEC LO HI HEX ADD. TOKEN WORD IN CHR AND ASCII 
5976 190 FN NO ADDRESS LIST S976 190:129, @ 

5978 191 USING NO ADDRESS LIST 3978 191:213Щ 838 731 78N 716 
5985 192 VARPTR NO ADDRESS LIST 5985 192:129, 00000 

5989 193 USR NO ADDRESS LIST 3989 195:213Щ 835 82R 

5992 194 ERL NO ADDRESS LIST 3992 194:129, 00 

5995 195 ERR NO ADDRESS LIST 3995 195:129, @@ 

2998 196 STRING МО ADDRESS LIST 9998 1965129, 000000 
5005 197 INSTR NO ADDRESS LIST 6005 197:129, 0000 

5010 198 РОТМТ NO ADDRESS LIST 6010 198:2081 790 731 78N 84T 
6015 199 TIMES NO ADDRESS LIST 6015 199:129, aa 

6020 200 MEM NO ADDRESS LIST 6020 200:129, 00 © 

6023 201 INKEYS NO ADDRESS LIST 6023 201:201Ш 78N 75K 69E 89Ү 563 
6029 202 THEN NO ADDRESS LIST 5029 2@2:212Ш 72H 69Е 78N 
6033 203 NOT NO ADDRESS LIST 6033 203:206Щ 790 84T 

9050 204 STEP NO ADDRESS LIST 6036 2@4:211 84T 69Е ЗОР 
6040 205 + NO ADDRESS LIST 6040 205:171l& WORD IS + 

6041 206 - NO ADDRESS LIST 6041 206:173" WORD IS - 

6042 207 ж NO ADDRESS LIST 5042 207:1708 WORD IS ж 

6043 208 / МО ADDRESS LIST 6045 208:175Щ WORD IS / 

5044 209 ^ NO ADDRESS LIST 6044 209: 22258 

5045 210 AND NO ADDRESS LIST 6045 210:193] 78N 480 

6048 211 OR NO ADDRESS LIST 6048 211:2@7[] g2R 

8050 212 > NO ADDRESS LIST 8050 212:190 WORD IS > 

6051 215 = NO ADDRESS LIST 6051 213:189" WORD IS = 

6052 214 « МО ADDRESS LIST 6052 214:188™ WORD IS < 

6053 215 SGN 2442 138 9 @98А 6053 215:2118 716 78N 

6056 216 INT 2871 55 11 QB37 6056 218:201ІШ 78N SAT 

6059 217 ABS 2425 119 9 0977 6059 217:193] 46B 855 

6062 218 FRE 10196 212 39 2704 6062 218:129, 00 

6065 219 INP 10991 259 42 ЗАЕЕ 6065 219:201 78N SOF 

9068 220 POS 10229 245 29 27F5 6068 220:129, 00 

6071 221 SOR 5095 231 19 13E7 6071 221:2114 810 ВЗК 

9074 222 RND 5521 201 20 14C9 6074 222: 210l 78N 480 

8077 225 106 2057 9 в 0809 6077 223: 204M 790 716 

5080 224 ЕХР 5177 57 20 1439 5080 224:197щ ВВХ gap 

6083 225 cos 541 65 21 1541 6085 225:195І 790 85 

6086 226 SIN 5447 71 21 1547 6086 226:211 731 78N 

6089 227 ТАМ 5544 168 21 1548 5089 227:212lH “SA 78N 

6092 228 ATN 5565 189 21 1581 6092 228:193 84T 78N 

6095 229 PEEK 11434 170 44 ЗСДА 6095 229: 208l 69Е 69Е 75K 
9099 230 CVI 51058 82 121 7952 5099 230:129 | @ ыл 2 
6102 231 CVS 31064 88 121 7958 5102 251:129, 00 

8105 222 сур 31070 94 121 795E 6105 232:129, Ø Ø 

6108 225 EOF 31073 97 121 7961 6108 233:129, 00 

6111 234 LOC 31076 i100 121 7904 26111 234:129, 00 

6114 235 Lor 51079 105 121 7967 6114 235:129 a ü 

6117 236 MKI$ 51082 106 121 796A 6117 236:129, 000 

8121 237 MKS$ 51085 109 121 790) 6121 237:129. 000 

6124 258 MKD$ 31088 112 121 7979 6125 238:129. 000 

6129 239 CINT 2687 127 10 QA7F 6129 239:129, 000 

6125 240 CSNG 2737 177 10 QAB! 6135 240:129, 000 

6137 241 CDBL 2779 219 10 ADB 6137 241:129; 000 

6141 242 FIX 2854 58 11 0826 6141 242:129, @@ 

5144 243 LEN 10755 3 42 2403 6144 245:20414 49E 78N 

6147 244 STR$ 10294 54 40 2654 6147 244:211] 84T SPR 36s 
6151 245 VAL 10949 197 42 2ACS5 6151 245:214 654 76. 

6154 246 Asc 10767 15 42 ЗАШЕ 5154 246:193 838 67C | 
6157 247 CHR 10785 31 42 AIF 6157 247:195[(H 72H 8?R 505 
6161 248 LEFT: 10849 97 42 2401 6161 248:204Щ 69Е 70Е 84T 35s 
6166 249 RIGHT# 10897 145 42 2491 6166 249:210l 751 716 72H 84T 20% 
6172 290 MID$ 10906 154 42 2494 6172 25@:2@5Ш] 751 IAs ” | 


FOR SALE — EXTENDED) DOS V1. O 1 59 


EXTENDED DOS VERSION 1.9 (С) COMMANDS :- 


MERGE - MERGES basic file from disk with program in memory. 
DIRA - See example - T:HENU B:PATCH3.1 B:WORDPROC 
| B:EXTDOS E B:EXTDOS R W:DOS-INST 
LDIRA - Аз above, but to screen and printer. _ | 
DIRB - See example - T:MENU 01 00 ТАЕЗ 801В 0532 .. 
| В: РАТСНЗ.1 01 OB 7200 771Е 951Е: E 
LDIKB - As-above, but to screen and printer. 
STATUSA - Prints free disk space to screen on one line. 
LSTATUSA - Аз above, but to screen and printer, see belou. 
| 534 RECORDS FREE 63.500K FREE | 
OLD - Restores a program after using the NEW command. 
OLD. — Prints START, 'END and LENGHT of program in memory in HEX. 
DEC XXXXX - Converts DECIMAL to HEX 
HEX ХХХХ - Converts HEX to DECIMAL 
STATUSA and LSTATUSA also uorks uith Version 1.0 DOS. 


The EXTENDED DOS is available in the tuo versions below :- 
EXTDOS R - T.O.M. SEEKING (SELF RELOCATING) 

EXTDOS E - FOR 2K RAM AT 6000-67ЕЕ HEX 

Price - $10.00 each or the tuo for $15.00. Availble from :- 


Dave MITCHELL - (079) 27 8519 
24 ELPHINSTONE STREET NORTH ROCKHAMPTON QUEENSLAND 4701 


FOR INFORMATION IN NEWCASTLE AREA :- Joe LEON - (049) 51 2756 


FOR SALE — DATABASE — DISK е TAPE 


DATA - 16k - VZ DATABASE. Enter data into records thirty 
Characters long (accepts graphic characters). Runs on VZ 20@+16k 
or VZ 300. Available on disk as DISK DATABASE or on tape as 
CASSETTE DATABASE. 


Facilities include data entry into record of choice, into 
last record chosen, next record, auto-next for fast data entry, 
edit keys so you don’t have to re-enter entire content of a 
record, delete a record, delete а block of records, gap 
delete, insert, gap insert, fast alphabetical sort of 


records--start anywhere in records ; number sort ; swap апу two - 


records: ; page display--ten records per page ; display current 
page, next page, previous page, flip backward and forward 
through datafile, SUap any two pages, fast search of entire 
datafile for a sequence of Characters--anyuhere in records, 
hardcopy your records--especially suited for VZ printer plotter ; 
menu etc. 


Disk DATA has Directory and ERASE commands, Saves a datafile 
or any part thereof as a Single binary file which loads back 
quickly. Cassette DATA CSAVES a datafile аз a single T Ғі1е--по 
Slow loading of multitüdes of D files! All instructions for 
using DATA are stored on disk and tape aS datafiles--run DATA, 
load an instruction file and page through it. This program 
certainly stands out amongst the crowd of other such programs of 
it's type. | 

PRICE - $20.00 for DISK or CASSETTE DATABASE - Please make all 
Cheques and Honey Orders payable to and is available from :- 
SCOTT LE BRUN 5 CAMERON COURT WANTIRNA VIC. 3152 


ЖЖЖЖ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
EDITOR ASSEMBLER TAPE TO DISK CONVERSION UTILITY 
- CONVERT YOUR EDITOR ASSEMBLER TO FULL DISK OPERATION - 

VZ USER has a conversion package to convert the Dick Smith Editor 
Assembler (Version 1.2). All SAVES/LOADS etc. to Disk. (Version 
1.1 converter coming soon). 

Price $15.00 inc. postage and is available from :— 

Mark Harwood (Editor) 'VZ USER’ | 

P.O. BOX 154 DURAL NSW AUSTRALIA Phone (02) 651 1413 АН 


ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
ж ж FOR SALE ж ж ж ж FOR SALE Xx сж 


ELF W. P. PATCH3. 1 - QUICICWEI'TE W. P. 
PATCHS. 1 - COPYRIGHT = H.V. VZ. U.G. | ы ж ж NEW NEW NER 3x ж * 
This single Patch will convert your QUICKWRITE WORDFPROCESSOR 

E & F TAFE WORD PROCESSOR: for full 

DISK use while retaining all TAFE DISC BASED WORDPROCESSOR 
functions. It can be used with 1 or Аъ40.00 


2 DRIVES. Below are the Ено Menus. 
QUICKSRITE НОКОРКОСЕВЗОА IS SUITABLE FOR THE 


Е) ПЕТ ТЕАТ L) OAD EXPANDED V2200 AND VZ300 COMPUT ERS. 

 C)LEAR TEXT S) AVE | | 
Р) КТМТ ТЕХТ D) IR QUICKWRITE is software on disc, so RAM and ROM 
L)OAD FILE Е) КА PACKS до not have to be plugged and unplugged inta the VZ 
5) AVE FILE К) ЕМ which can cause loose port socket connections. 
VERIFY FILE I)NIT QUICKWRITE runs on either the LASER ог VZ DOS disc 
MUIT PROGRAM 1-2) DRIVE 1 controller, - 
D) ISK М) ЕМИ WUICKWRITE saves and loads document text (data) to 

| | disc. | 

Fast SAVING and LOADING of TEXT | 
DATA to and from Disk is provided FEATURES. 
using Block SAVE or LOAD. * Fast disc saving and loading of document text 

(data). 

Full instructions are supplied | * Automatic periodic saving of data while in typing 
together with a Tape to Disk mode if required. | 
transfer utility for your E &F * Tape saving and loading af data as a backup 
Tape Word Processor. ` medium. Е | | 

* Loading of E&F tape files (data) possible, 

This Patch will work with V1.0 * Printer font changes within the data. 
or V1.2 Disk Controller. А STATUS ж Capitals/lower case software lock on/off. 
facility has been added for V1.0 * Accommocates wide printers - up to 255 columns. 
DOS owners. + A Printer/Plotter can also be used. 

+ Four print justify/wragged modes. 

SYSTEM REQUIREMENTS :- * Adequate operator warnings. 
DISK DRIVE + Vi.@ OR Vi.2 DOS * Labelling af discs allowable, such as date, code 
VZ3U00 + 16K RAM РАСК ОК etc, 
VZ20@ + 18K (16K RAM PACK + 2K) * The usual editing facilities:- 

" Delete, Insert, Find and Replace, Paste, Cut 
The price - $10.00, NZ AU$12.00 and etc. 
is available from :- .. * Number | ог number 2 disc drive selection allowed. 
HUNTER VALLEY VZ USERS’ GROUP * The price af A$40.00. includes surface postage 
Р.0. ВОХ 161 JESMOND 2299 | within Australia. | 


N. S.W. AUSTRALIA Phone (045) 51 2756 
| Sold ONLY by VSOFTWAREZ 
37 Agnes sf., TOOWONG Q/LAND. 4065. 
AUSTRALIA. | 
(071571 3707. 


